home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / source / MATH.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-24  |  1.1 KB  |  33 lines
  1. /***************************************************************************
  2. *   Ce fichier, ainsi que tous les  modules  l'accompagnant, peut et  doit *
  3. * etre  copié GRATUITEMENT à la seule condition expresse de conserver      *
  4. * l'INTEGRALITE  du  Code Source, de  la documentation, et  des fichiers   *
  5. * annexes du package. Ce logiciel est Shareware, veuilez envoyer 100 FF à  *
  6. * l'auteur pour recevoir regulièrement les nouvelles versions.             *
  7. * Toute modification est INTERDITE sans l'autorisation écrite de l'auteur. *
  8. *            Tous droits réservés à M. DIALLO Barrou, Juillet 1992.        *
  9. ***************************************************************************/
  10.  
  11. /*********************** Module Mathematique *************************/
  12.  
  13. #ifdef msdos
  14.         #include "include\\cleobis.h"
  15. #else
  16.         #include "include/cleobis.h"
  17. #endif
  18.  
  19. /*** Fonction puissance a^b */
  20. float pw(int a, int b)
  21. {
  22.         double res=1;
  23.         if(b>=0)
  24.             while(b--)  res *=a;
  25.         else
  26.             {
  27.                 while (b++) res *=a;
  28.                 res = 1/res;
  29.             }
  30. return ((float) res);
  31. }
  32.  
  33.